home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Leser 19 / Amiga Plus Leser CD 19.iso / Online / AmigaTalk / examples / collect.st < prev    next >
Text File  |  2000-09-11  |  957b  |  41 lines
  1. Class Main ! i !
  2. [
  3.    main
  4.       self test1.
  5.       self test2.
  6.       self test3
  7. |
  8.    test1 ! j !
  9.       (i <- 'example') print.
  10.       i size print.
  11.       i asArray print.
  12.       (i occurrencesOf: $e) print.
  13.       i asBag print.
  14.       (j <- i asSet) print.
  15.       j asString reversed print.
  16.       i asDictionary print.
  17.       (j <- i asList) print.
  18.       j addFirst: 2 / 3.
  19.       j addAllLast: (12.5 to: 15 by: 0.75).
  20.       j print.
  21.       j removeLast print.
  22.       (j , #($a 7) ) print.
  23.       (i reject: [:x | x isVowel] ) print.
  24.       (i copyWithout: $e) print.
  25.       i sort print.
  26.       (i sort: [:x :y | y < x]) print.
  27.       i keys print.
  28.       i values print.
  29.       (i atAll: (1 to: 7 by: 2) put: $x) print
  30. |
  31.    test2 ! j !
  32.       i <- (1 to: 6) asBag print.
  33.       i size print.
  34.       (i select: [:x | (x \\ 2) strictlyPositive] ) print.
  35.       (j <- (i collect: [:x | x \\ 3]) asSet ) print.
  36.       j size print
  37. |
  38.    test3
  39.       ('bead' at: 1 put: $r) print
  40. ]
  41.